﻿Imports Entidades
Public Class frmEntregasConObjetosSinRegistrar
    Private lista As List(Of Entrega)
    Private Sub btnRegistar_Click(sender As Object, e As EventArgs) Handles btnRegistar.Click
        If cboEntrega.Text = "" Then
            MessageBox.Show("No hay ninguna entrega seleccionada")
            Exit Sub
        End If
        frmAñadirObjeto.entrega = lista(cboEntrega.SelectedIndex)
        frmAñadirObjeto.ShowDialog()


    End Sub

    Private Sub frmEntregasConObjetosSinRegistrar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lista = miGestion.entregasPorValorar
        For i As Integer = 0 To lista.Count - 1
            cboEntrega.Items.Add("Entrega del dia: " & lista(i).Fecha & " " & lista(i).NumeroProductos & " objetos")
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()

    End Sub
End Class